home *** CD-ROM | disk | FTP | other *** search
/ MacWorld 1999 January - Disc 2 / Macworld (1999-01) (Disk 2).dmg / 4th Dimension 6.0.6 demo / Databases / 3rd Party Internet Demos / Netlink Demo / MacOS / NetLink_examples / Sample Code NL⁄4D SVB < prev    next >
Encoding:
Text File  |  1998-02-02  |  1.2 KB  |  66 lines  |  [TEXT/ttxt]
  1. NetLink and 4D example code follows:
  2.  
  3. To use these procedures, you must add the following lines to the beginning
  4. of your main NetLink procedure (the one called when a request is received):
  5.  
  6. ---4D code follows
  7. c_longint(procid)
  8. c_text(txt_html)
  9.  
  10. procid=$1
  11. txt_html:=""
  12. --end 4D code
  13.  
  14. You will also need to add the command:
  15.  
  16. NL_AppendReply(procid;txt_html)
  17.  
  18. as the last line of the main procedure mentioned above.
  19.  
  20. --start example code
  21.  
  22. `Procedure "Reply"
  23. `
  24. `Stewart Van Buskirk, 1996
  25. `
  26. `This procedure replaces the "NL_AppendReply"
  27. `command in 4D code and makes including inline
  28. `HTML much easier and a bit faster.
  29. `
  30. `Usage:
  31. `Reply(<text or string expression>)
  32. `
  33. c_text($1)
  34.  
  35. if(length(txt_html+$1)>30000)
  36.    nl_appendreply(procid;txt_html)
  37.    txt_html:=""+$1
  38. else
  39.    txt_html:=txt_html+$1
  40. end if
  41.  
  42.  
  43. ---start second procedure
  44.  
  45. `Procedure "ReplyNow"
  46. `
  47. `Stewart Van Buskirk, 1996
  48. `
  49. `This procedure replaces the "NL_FlushReply"
  50. `command in 4D code when sending back an immediate
  51. `chunk of HTML to the client. To be used when an
  52. `immediate reply is required but more HTML may
  53. `follow.
  54. `
  55. `Usage:
  56. `ReplyNow(<text or string expression>)
  57. `
  58. c_text($1)
  59.  
  60. nl_appendreply(procid;txt_html)
  61. nl_appendreply(procid;$1)
  62. nl_flushreply(procid;0)
  63. txt_html:=""
  64.  
  65. ----end example code
  66.